Imports System.Configuration.ConfigurationSettings

Public Class SendGeneralEnquiry
    Inherits MailBase

    Protected Overrides Sub PrepareFields()
        Me.Fields("#subject#") = AppSettings("EmailTemplate.SendGeneralEnquiry.Subject")
        Me.Subject = Me.Fields("#subject#")
        Me.Receiver = AppSettings("ReceiverEmailsSendGeneralEnquiry")
        Me.Cc = AppSettings("ReceiverEmailsSendGeneralEnquiry") + String.Format(", {0}", Me.Fields("#CustomerEmail#"))
    End Sub

    Public Property GeneralEnquiry() As String
        Set(ByVal Value As String)
            Me.Fields("#GeneralEnquiry#") = Value
        End Set
        Get
            Return Me.Fields("#GeneralEnquiry#")
        End Get
    End Property

    Public Property CustomerName() As String
        Set(ByVal Value As String)
            Me.Fields("#CustomerName#") = Value
        End Set
        Get
            Return Me.Fields("#CustomerName#")
        End Get
    End Property

    Public Property CustomerEmail() As String
        Set(ByVal Value As String)
            Me.Fields("#CustomerEmail#") = Value
        End Set
        Get
            Return Me.Fields("#CustomerEmail#")
        End Get
    End Property

    'Public Property CompanyName() As String
    '    Set(ByVal Value As String)
    '        Me.Fields("#CompanyName#") = Value
    '    End Set
    '    Get
    '        Return Me.Fields("#CompanyName#")
    '    End Get
    'End Property

    'Public Property Address() As String
    '    Set(ByVal Value As String)
    '        Me.Fields("#Address#") = Value
    '    End Set
    '    Get
    '        Return Me.Fields("#Address#")
    '    End Get
    'End Property

    'Public Property PhoneNumber() As String
    '    Set(ByVal Value As String)
    '        Me.Fields("#PhoneNumber#") = Value
    '    End Set
    '    Get
    '        Return Me.Fields("#PhoneNumber#")
    '    End Get
    'End Property

    Public Overrides ReadOnly Property MailTemplatePath() As String
        Get
            Return System.IO.Path.Combine(Config.TemplateBaseFolder, _
                AppSettings("EmailTemplate.SendGeneralEnquiry.Location"))
        End Get
    End Property
End Class
